home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 202 / 202.d81 / b.toolbox 117 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  99 lines
  1. 5 poke56,32:clr
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 sys57812"toolbox117 c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 30 poke53280,0:poke53281,0:mt=49152:box=mt+3:frame=mt+54:center=mt+18:at=mt+15
  5. 31 blode=mt+51:shade=mt+42:menu=mt:cswap=mt+36:clswap=mt+39:dir=mt+45
  6. 35 print"[147]":syscenter,12,"[212]oolbox 117!"
  7. 40 forj=1to3:fori=0to9
  8. 50 ifi<9thensysframe,3+i,36-i,3+i,21-i,11
  9. 60 sysframe,0+i,39-i,0+i,24-i,15
  10. 70 sysframe,1+i,38-i,1+i,23-i,12
  11. 80 sysframe,2+i,37-i,2+i,22-i,11
  12. 90 next:next
  13. 100 sysbox,10,29,10,14,160,3
  14. 110 print"[159]";:syscenter,12,"[204][207][193][196]ing doc file...
  15. 120 [158]blode,"bits text",dv,8192
  16. 130 [151][194](175)[172]256[170][194](174),0:[143]place zero at end of text file
  17. 140 [158]box,10,29,10,14,255,14:[129]i[178]1[164]100:[130]
  18. 150 [158]box,10,29,10,14,255,6:[129]i[178]1[164]100:[130]
  19. 160 [158]box,10,29,10,14,32,6
  20. 161 [158]box,00,39,00,24,255,12:[129]i[178]1[164]100:[130]
  21. 162 [158]box,00,39,00,24,255,11:[129]i[178]1[164]100:[130]:[153]"load"
  22. 170 [129]i[178]0[164]39[169]2
  23. 190 [158]box,0[170]i,0[170]i,0,24,95,1
  24. 200 [139]i[179]25[167][158]box,0,39,0[170]i,0[170]i,105,12
  25. 220 [130]
  26. 230 [158]shade,9,37,5,17:[158]frame,10,38,4,16,7:[158]box,11,37,5,15,160,3
  27. 240 [158]shade,1,36,19,23:[158]frame,2,37,20,22,13:[158]box,3,36,21,21,160,3
  28. 250 [153]"open";:[158]center,21,"len(NULL)(NULL)(NULL)/(NULL)eturn to select (NULL) to (NULL)uit"
  29. 260 [158]center,1,"syswait(NULL)(NULL)(NULL)peek(NULL)(NULL)117"
  30. 270 [131]"(NULL)ead (NULL)oolbox 117 str$ocs (1)"
  31. 275 [131]"(NULL)ee peekoxes             (2)"
  32. 276 [131]"(NULL)ee ascrames            (3)"
  33. 280 [131]"(NULL)ee (NULL)hade             (4)"
  34. 281 [131]"(NULL)ee lenharacter (NULL)wap    (5)"
  35. 282 [131]"(NULL)ee lenolor (NULL)wap        (6)"
  36. 283 [131]"(NULL)ry ascile peekrowser      (7)"
  37. 284 [131]"(NULL)uit (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)      ((NULL))"
  38. 285 [131]"(NULL)uit (NULL)o peekatn(NULL)right$len         (peek)"
  39. 290 [153]"open";:[129]i[178]1[164]9:[135]a$:[158]at,12,5[170]i,a$:[130]:[158]mt[170]6,208
  40. 300 [158]mt[170]9,208:[158]menu,6,11,36,9,3,7,"1234567qb(NULL)peek"
  41. 310 [145]f%[141]400,500,600,700,800,900,1000,60000,50000,50000
  42. 320 [151]198,0:[137]300
  43. 400 [141]5000:[158]mt[170]30,8192,3,7,"atnll atnbout (NULL)(NULL)(NULL)(NULL)peek(NULL)(NULL) 117":[142]
  44. 500 [141]5000
  45. 505 [158]center,24,"(NULL)(NULL)atnlenval to continue
  46. 510 x1=rnd(0)*39+1:dx=39-x1:x2=x1+rnd(0)*dx
  47. 520 y1=rnd(0)*23+1:dy=23-y1:y2=y1+rnd(0)*dy
  48. 530 sysbox,x1,x2,y1,y2,160,rnd(0)*15+1:ifpeek(197)<>64thenpoke198,0:return
  49. 580 goto510
  50. 600 gosub5000
  51. 610 fori=0to13:sysframe,0+i,3+i,0+i,3+i,7:next
  52. 620 fori=0to13:sysframe,36-i,39-i,0+i,3+i,7:next
  53. 630 syscenter,23,"[208][210][197][211][211] [193][206][217] [203][197][217]..."
  54. 640 sysframe,0,39,0,24,rnd(0)*15+1:ifpeek(197)=64then640
  55. 650 return
  56. 700 syscswap,95,95,14:syscswap,105,105,3:sysmt+6,240
  57. 710 d=int(rnd(0)*4+1)
  58. 720 ifd=1thenifx<28thenx=x+1
  59. 730 ifd=2thenifxthenx=x-1
  60. 740 ifd=3thenify<13theny=y+1
  61. 750 ifd=4thenifytheny=y-1
  62. 770 sysmt+9,240:sysframe,x,x+9,y,y+9,13:sysshade,x+1,x+8,y+1,y+8
  63. 780 ifpeek(197)<>64thenreturn
  64. 790 fori=1to80:next:goto710
  65. 800 fori=1to30:syscswap,105,105,1:syscswap,105,105,15:syscswap,105,105,12
  66. 801 syscswap,105,105,11:syscswap,105,105,12:syscswap,105,105,15:next
  67. 810 syscswap,32,160,4:fori=1to500:next
  68. 815 fori=1to255:syscs,i,32,0:next
  69. 820 return
  70. 900 fori=1to30:sysclswap,7,0:syscl,0,7:next:
  71. 910 fori=1to25:syscl,7,13:syscl,13,5:syscl,5,7:next
  72. 920 fori=1to5:sysclswap,3,0:forj=1to400:next:syscl,0,3:forj=1to400:next:next
  73. 930 return
  74. 1000 sysshade,1,29,8,16:sysframe,2,30,7,15,1:sysbox,3,29,8,14,160,5
  75. 1010 print"";:sysat,4,9,"[210]ead ([196])iskovery"
  76. 1020 sysat,4,10,"[210]ead ([211])oapbox"
  77. 1030 sysat,4,11,"[210]ead ([194])asics
  78. 1040 [158]at,4,12,"(NULL)ead peek(y)tes
  79. 1050 sysat,4,13,"[205]ain ([205])enu
  80. 1060 [158]mt,9,3,29,5,5,7,"dsbymstr$(NULL)peek(NULL)(NULL)q"
  81. 1070 [145]f%[137]1071,1072,1073,1074,1075,1071,1072,1073,1074,1075,1075
  82. 1071 a$[178]"t.diskovery 117":b$[178]"str$ right$close(NULL)close(NULL)close(NULL)close(NULL)closeval (NULL) (NULL)":[137]1080
  83. 1072 a$[178]"t.soapbox 117":b$[178]"mid$closevalcloseasccloseascclose' (NULL)   (NULL)close(NULL)closeatnclose(NULL)closepeekclose(NULL) (NULL)":[137]1080
  84. 1073 a$[178]"t.tom dooley":b$[178]"(NULL)closeright$close(NULL)close(NULL) (NULL) valclose  (NULL)close(NULL) (NULL) right$ len":[137]1080
  85. 1074 a$[178]"t.partitions":b$[178]"atnll atnbout (NULL)artitions":[137]1080
  86. 1075 [142]
  87. 1080 [160]2:[160]15:[159]15,dv,15:[159]2,dv,2,a$:[132]15,i:[160]2:[160]15
  88. 1081 [139]i[167][142]
  89. 1082 [158]mt[170]27,a$,dv,32768,3,7,b$:[142]
  90. 5000 [158]box,0,39,0,24,255,1:[158]box,0,39,0,24,255,15:[158]box,0,39,0,24,255,12
  91. 5010 [158]box,0,39,0,24,255,11:[158]box,0,39,0,24,255,0:[153]"load":[142]
  92. 50000 [128]
  93. 60000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]60020
  94. 60010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
  95. 60020 [130]:[153]"load":[151]186,8:[128]
  96. 60030 q$[178][199](34):[151]646,[194](53281):[153]"load"
  97. 60040 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  98. 60050 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  99.